home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / jock.zip / TOTDEM11.ZIP / DEMDT2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  785b  |  27 lines
  1. program DemoDateTwo;
  2. {DEMDT2 - example date statements}
  3.  
  4. uses DOS,CRT, totDATE;
  5.  
  6. var
  7.  M,D,Y:longint;
  8.  
  9. begin
  10.    ClrScr;
  11.    writeln(TodayInJul);
  12.    writeln(JultoStr(TodayInJul,DDMMYYYY));
  13.    writeln(FancyDateStr(TodayInJul,false,false));
  14.    writeln(FancyDateStr(TodayInJul,true,false));
  15.    writeln(FancyDateStr(TodayInJul,false,true));
  16.    writeln(FancyDateStr(TodayInJul,true,true));
  17.    writeln;
  18.    writeln(RelativeDate('02/20/56',MMDDYY,90));
  19.    writeln;
  20.    writeln(JulToStr(StartOfYear(StrToJul('30/06/1990',DDMMYYYY)),DDMMYYYY));
  21.    writeln(JulToStr(EndOfYear(StrToJul('30/06/1990',DDMMYYYY)),DDMMYYYY));
  22.    writeln;
  23.    writeln(ValidDateStr('02/29/90',MMDDYY));
  24.    writeln(ValidDate(2,29,90));
  25.    writeln(DateFormat(MMDDYY));
  26.    repeat until keypressed;
  27. end.